<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Commodities_Show.aspx.vb" Inherits="Commodities_Show"  aspcompat=true Debug="true" %>
<%
    Dim connstr, TaokeUrl, pid, Site_Url
    pid = GetPid()
    Site_Url = "http://" & Request.ServerVariables("server_name")
	TaokeUrl = GetTaoKeUrl()'rs("TaokeUrl").value
    If instr(lcase(TaokeUrl),"s.click.taobao.com") Then
        TaokeUrl = Replace(TaokeUrl, "_Pid_", "_" & pid & "_")
    Else
        TaokeUrl = Site_Url
    End If
 %>
<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=<%=TaokeUrl%>">
<%
GC.Collect()
%>